note
	description: "Summary description for {FACTORYFACTORY}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	FACTORYFACTORY

create
	make

feature

	make
		do
		end

	create_factory (element: HASH_TABLE [STRING, STRING]): FACTORY
		local
			noms :ARRAY[STRING]
			temp: ARRAYED_LIST [STRING]
			facto: FACTORY
			range: HASH_TABLE [STRING, STRING]
			tableaux: HASH_TABLE [ARRAYED_LIST [STRING], STRING]
			nom: STRING
			type: STRING
			i: INTEGER
		do
			noms := element.current_keys
			create range.make (100)
			create tableaux.make (100)
			from
				i := 1
			until
			i>noms.count
			loop
				nom := noms.at (i)
				type := element.at (nom)
		--		print (nom + " " + type + " ff")
		--		print(element.count)
				if type = "ARRAY" then
					create temp.make (20)
					tableaux.put (temp, nom)
				else
					range.put (type, nom)
				end
				i := i + 1
			end
			create facto.make (range, tableaux, element.count)
			Result := facto
		end

end
